home *** CD-ROM | disk | FTP | other *** search
/ BCI NET 2 / BCI NET 2.iso / archives / programming / amos / amoslist-0195.lzh / AMOSLIST / text0048.txt < prev    next >
Encoding:
Text File  |  1995-02-01  |  4.7 KB  |  151 lines
  1. On Sun, 1 Jan 1995, John Carpenter wrote:
  2.  
  3. > Finally...
  4. > 
  5. > I have (half) written a paint package, but am experiencing several
  6. > problems with it.  (surprisingly)
  7. > 
  8. > 1) Can anyone tell me the formula for a parabola?  Or preferably, can
  9. > anyone tell me how to write a curve tool like the one in Deluxe paint?
  10. >
  11.  
  12.     yup... here is mine from my paint program... it works identical
  13.   to that of DeluxePaints...  If you want to understand the Math look
  14.   up Bezier Curves... this one use's a 3-point bezeir curve...
  15.  
  16. Procedure _BEZIER_BRUSH[PX0,PY0,PX1,PY1,PX2,PY2]
  17. '
  18. '  PX0,PY0 --> one end point
  19. '  PX1,PY1 --> the middle point  (normally the current mouse co-ords)
  20. '  PX2,PY2 --> the other end point
  21. '
  22. ' this recomputes the middle point so that the curve actually goes 
  23. ' through the mouse pointer.... obtained from equating cx#=px1 and 
  24. ' cy#=py1 and picking t=0.5 then solving cx,cy for px1,py1.
  25. ' 
  26. ' Note: the 'DRAW_LINE2[]' procedure just draws a line but uses the
  27. ' current brush the user has selected.
  28. '
  29.  
  30. PX1=2*PX1-PX0/2-PX2/2
  31. PY1=2*PY1-PY0/2-PY2/2
  32.  
  33. _STEP#=0.1
  34.  
  35. For T#=0 To 1.0 Step _STEP#
  36.  
  37.    CX#=PX0*(1-T#)^2+PX1*(2*T#*(1-T#))+PX2*T#*T#
  38.    CY#=PY0*(1-T#)^2+PY1*(2*T#*(1-T#))+PY2*T#*T#
  39.  
  40.    N#=T#+_STEP#
  41.  
  42.    CXN#=PX0*(1-N#)^2+PX1*(2*N#*(1-N#))+PX2*N#*N#
  43.    CYN#=PY0*(1-N#)^2+PY1*(2*N#*(1-N#))+PY2*N#*N#
  44.  
  45.    _DRAW_LINE2[CX#,CY#,CXN#,CYN#]
  46.  
  47. Next 
  48.  
  49. '
  50. End Proc
  51.  
  52.     I use this as the second step in a 2 step process for drawing
  53.    curves in my paint program... first I call my 'Draw Line' command
  54.    then I call 'Draw Bezeir' command with 2 endpoints of the curve
  55.    obtained from the 'Draw Line' and the middle point coming from 
  56.    current mouse co-ords.
  57.  
  58.  
  59. > 2) What I want to do, for example, is pick up a circle of colour 0 from
  60. > a background of colour 1 as a BOB, like:
  61. >        ______
  62. >       |  __  |<--colour 1
  63. >       | /  \ |
  64. >       | \__/<|---colour 0
  65. >       |______|
  66. > 
  67. > BUT I would like colour 1 to be transparent and NOT colour 0!  I found a
  68. > machine code procedure called MAKE_MASK on an AmosPro Productivity disk
  69. > and tried to use that in conjunction with NO MASK but without success.
  70. > 
  71.  
  72.     yup I also wrote this for my paint program too!  It is included
  73.   in the Amos Procedure Library on Aminet... ( AMINET:dev/amos/ProbLib3.lha
  74.   .. or really close ) I belive its called MAKE_ICONMASK[]... if you don't
  75.   have ftp access I will send the procedure to ya...
  76.  
  77.     this one took me about a week to figure out how to code...  I explain
  78.   the algorithm quite well in the procedure... 
  79.  
  80.     this is in marp also...
  81.  
  82.  
  83. > 3) I presume there's no way to REDIM an array is there?
  84. > 
  85.  
  86.     Nope... but you can always you Exec's Alloc routines to dynamicaly
  87.   allocate and free mem... 
  88.  
  89. > 4) Or SET BUFFER within a program?  I want to have a list of fonts but,
  90. > since I don't have a hard drive, I have hardly any.  When I gave the
  91. > program to a friend it said "out of variable space" or something.  Do I
  92. > just whack it up high and hope for the best?  If so, is there a way of
  93. > telling a maximum number of fonts that the buffer would hold?  I don't
  94. > think I can do an interface ActiveList directly from the FONT$() array
  95. > can I??
  96. > 
  97.  
  98.     I had this exact same problem... I just set a limit to a maxium of
  99.   500 fonts... I wrote a full Font Requester using Pros Interface Language..
  100.   you can have it if you want it... 
  101.  
  102.     marp will let you call reqtools fontrequester easily to get by
  103.   this problem easily...
  104.  
  105. > 5) Is there a faster version of PLOT and POINT as I'm doing "image
  106. > processing" (sort of..) in the program and it's REALLY slow.  I have
  107. > seen an image processor I think is in Amos (because you can Ami+A it
  108. > into Wbench) and it makes mine look foolish by being so fast - how does
  109. > it do it?
  110. > 
  111.  
  112.     Here you will have to be more specific... if you are doing "real"
  113.   digital image processing (which I only know a little about at the moment
  114.   I have taken a course in Digital Signal Processing (the pre requsite to
  115.   the Imag procressing one) but it is basically 2-d signal processing)...
  116.  
  117.     In the "real" processing... you basically have to convolve a 
  118.   filter with a signal... ie. y = x * h (*=convolution (polynomial 
  119.   multiplication) or Y=X*H (*=normal multiplication) in the frequency
  120.   domain...  I may be taking the 'Image' processing course this semester
  121.   (it depends on whether I can get in) so I may be able to help a bit more
  122.   in a month  :)
  123.     
  124.  
  125.  
  126. > --
  127. > 
  128. > I think that'll have to do for now, although I'm sure I'll think of some
  129. > more soon!  Sorry about this, I hope you don't mind all this crap.  
  130.  
  131.     I don't :)... this is a god way to learn... 
  132.  
  133. > If
  134. > you can help with any of it I will be incredibly grateful as many of
  135. > these things have plagued me for AGES!!!
  136. > 
  137. > Thanks..
  138. > 
  139.  
  140.     your welcome... 
  141.  
  142.                                 mike
  143.  
  144.  
  145. > -- 
  146. > Semprini
  147. > 
  148. > (Oh yeah...happy new year etc etc..)
  149. > 
  150.  
  151.